VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmComments 
   Caption         =   "Internal / External Comments"
   ClientHeight    =   9500.001
   ClientLeft      =   0
   ClientTop       =   -6160
   ClientWidth     =   14000
   OleObjectBlob   =   "frmComments.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmComments"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'WRITTEN BY JALISA GREENE
'LAST MODIFIED BY JALISA GREENE
'LAST UPDATED 6/9/2014

Option Explicit   '**MUST DECLARE ALL VARIABLES**'

Private Sub Cancel_Click()
'**ACTION SUB, USER CLICKED CANCEL**'

    Unload frmComments
End Sub

Private Sub UserForm_Initialize()
'**ACTION SUB, RUNS WHEN USER OPENS THE FORM, POPULATES WHAT WAS ALREADY WRITTEN**'

    txtInternal.Value = Worksheets("ASR").Range("A1116").Value
    txtExternal.Value = Worksheets("ASR").Range("A1117").Value
    txtNextSteps1.Value = Worksheets("ASR").Range("A1118").Value
    txtNextSteps2.Value = Worksheets("ASR").Range("A1119").Value
    txtNextSteps3.Value = Worksheets("ASR").Range("A1120").Value
    txtNextSteps4.Value = Worksheets("ASR").Range("A1121").Value
    txtNextSteps5.Value = Worksheets("ASR").Range("A1122").Value
End Sub

Private Sub btnSave_Click()
'**ACTION SUB, RUNS WHEN USER CLICKS SAVE, SAVES ALL THAT WAS WRITTEN**'

    Worksheets("ASR").Range("A1116").Value = txtInternal.Value
    Worksheets("ASR").Range("A1117").Value = txtExternal.Value
    Worksheets("ASR").Range("A1118").Value = txtNextSteps1.Value
    Worksheets("ASR").Range("A1119").Value = txtNextSteps2.Value
    Worksheets("ASR").Range("A1120").Value = txtNextSteps3.Value
    Worksheets("ASR").Range("A1121").Value = txtNextSteps4.Value
    Worksheets("ASR").Range("A1122").Value = txtNextSteps5.Value
    Unload frmComments
End Sub
